Private Sub cmdDemo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Label1.Text = "Starting the application"
    Call ShowMSGBOX
    Label1.Text = "Ending the application"
End Sub

Private Sub ShowMSGBOX()
    Msgbox "I am currently in the sub-routine"
End Sub
